home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1996 #15
/
Monster Media Number 15 (Monster Media)(July 1996).ISO
/
bbs_lord
/
life118d.zip
/
LIFE.ZIP
/
BANKTXT.DAT
< prev
next >
Wrap
Text File
|
1996-03-12
|
5KB
|
181 lines
@#Bank
`<SetOptions>=[D,W,T,A,E,R]
`<Clear>
`0 Ye International Bank
`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
`2 You stroll into the local bank...And observe the helpful
`2staff...On the wall you see a sign which says: And remember your
`2money is our money...hmmm I guess that's the bank's motto. <g>
`<RetOff>
`3You have: [
`<PFormat>=[(FLifeGold),(TheUser)]
`3] life dollars on hand.
`<NewLine>
`3You have: [
`<PFormat>=[(FLifeBank),(TheUser)]
`3] life dollars in bank.
`<RetOn>
`2 (`5D`2)eposit
`2 (`5W`2)ithdraw
`2 (`5T`2)ransfer
`2 (`5A`2)ttempt to rob the bank
`2 (`5E`2)xchange Lord<->LordLife currencies
`2 (`4R`2)eturn to the big city
@#BankOptions?
`<SetMenu>=[Bank]
@#BankOptionsD
`<NewLine>
`<RetOff>
`3Deposit how much, `5your grace? (1 for all)
`<Space>
`2>
`<LordIn>=[(TempDbl0),70,100,2,(TheUser)]
`<if>=[(TempDbl0),(TheUser),,@#Abort]
`<if>=[(TempDbl0),(TheUser),1,`<SetVal>=[(TempDbl0),(TheUser),(FLifeGold)]]
`<ifless>=[(TempDbl0),(TheUser),1,@#Abort]
`<ifless>=[(FLifeGold),(TheUser),(TempDbl0),@#Abort]
`<AddVal>=[(FLifeBank),(TheUser),(TempDbl0)]
`<SubVal>=[(FLifeGold),(TheUser),(TempDbl0)]
`<RetOn>
`2
`0 Done!
`2
@#BankOptionsW
`<NewLine>
`<RetOff>
`3You wish to withdraw? `5HOW MUCH`2? (1 for all)
`<Space>
`2>
`<LordIn>=[(TempDbl0),70,100,2,(TheUser)]
`<if>=[(TempDbl0),(TheUser),,@#Abort]
`<if>=[(TempDbl0),(TheUser),1,`<SetVal>=[(TempDbl0),(TheUser),(FLifeBank)]]
`<ifless>=[(TempDbl0),(TheUser),1,@#Abort]
`<ifless>=[(FLifeBank),(TheUser),(TempDbl0),@#Abort]
`<AddVal>=[(FLifeGold),(TheUser),(TempDbl0)]
`<SubVal>=[(FLifeBank),(TheUser),(TempDbl0)]
`<RetOn>
`2
`0 Done!
`2
@#BankOptionsT
`<NewLine>
`2 Note: You transfer directly from your bank account,
`2so you must have deposited enough for your transfer
`2
`<RetOff>
`5Who do you wish to give the `0cash`5 to?
`<Space>
`2>
`<LordIn>=[(TempStr0),70,100,2,(TheUser)]
`<if>=[(TempStr0),(TheUser),,@#Abort]
`<NewLine>
`<NewLine>
`<FindLifeUser>=[(TempStr0),(TheUser)]
`<NewLine>
`<if>=[(TempStr0),(TheUser),###NotFound###,@#UserNotFound]
`<NewLine>
`3Transfer!!! <mumbles something>....`5HOW MUCH`2?
`<Space>
`2>
`<LordIn>=[(TempDbl1),70,100,2,(TheUser)]
`<if>=[(TempDbl1),(TheUser),,@#Abort]
`<ifless>=[(TempDbl1),(TheUser),1,@#Abort]
`<ifless>=[(FLifeBank),(TheUser),(TempDbl1),@#Abort]
`<SubVal>=[(FLifeBank),(TheUser),(TempDbl1)]
`<AddVal>=[(FLifeBank),(TempStr0),(TempDbl1)]
`<RetOn>
`2
`0 Done!
`2
@#BankOptionsA
`<NewLine>
`2 Sorry...but that would not be a good idea right now.
@#BankOptionsE
`<NewLine>
`<ifless>=[(Level),(TheUser),9,@#LNine]
`<RetOff>
`2(`5F`2)rom lord -or- (`5I`2)nto lord? (F/I) `0[`5I`0]:
`<Space>
`<GetAns>=[(TempStr0),IF,(TheUser)]
`<PrintVal>=[(TempStr0),(TheUser)]
`<NewLine>
`<RetOn>
`<if>=[(TempStr0),(TheUser),F,@#FromLord]
`<NewLine>
`<NewLine>
`3Careful not to take too much into lord!!!
`3You only get one gold coin for every 20 life dollars.
`<RetOff>
`3So how much lord gold do you need?
`<Space>
`2>
`<LordIn>=[(TempDbl0),70,100,2,(TheUser)]
`<if>=[(TempDbl0),(TheUser),,@#Abort]
`<MultVal>=[(TempDbl0),(TheUser),20]
`<ifless>=[(TempDbl0),(TheUser),1,@#Abort]
`<ifless>=[(FLifeBank),(TheUser),(TempDbl0),@#Abort]
`<SetVal>=[(TempDbl1),(TheUser),(TempDbl0)]
`<SubVal>=[(FLifeBank),(TheUser),(TempDbl0)]
`<DivVal>=[(TempDbl1),(TheUser),20]
`<AddVal>=[(LordBank),(TheUser),(TempDbl1)]
`<RetOn>
`2
`0 Done!
`2
@#FromLord
`<NewLine>
`<NewLine>
`3You get 20 life dollars for every gold coin.
`2So now you must say how much lord gold to spend.
`<RetOff>
`3Convert how much lord gold, `5your grace? (1 for all)
`<Space>
`2>
`<LordIn>=[(TempDbl0),70,100,2,(TheUser)]
`<if>=[(TempDbl0),(TheUser),,@#Abort]
`<ifless>=[(TempDbl0),(TheUser),1,@#Abort]
`<ifless>=[(LordBank),(TheUser),(TempDbl0),@#Abort]
`<SubVal>=[(LordBank),(TheUser),(TempDbl0)]
`<MultVal>=[(TempDbl0),(TheUser),20]
`<AddVal>=[(FLifeBank),(TheUser),(TempDbl0)]
`<RetOn>
`2
`0 Done!
`2
@#BankOptionsR
`<SetMenuAndFile>=[MainMenu,(TLifesDir),MAINTXT.DAT]
@#BankOptions|
`<SetMenuAndFile>=[MainMenu,(TLifesDir),MAINTXT.DAT]
@#UserNotFound
`<NewLine>
`<RetOn>
`7User not found...
`2The user may not have been in lord life yet...
`2Or you may not have entered the name right...
`2Type less of the name if you are unsure...
@#UserNoInfo
`<NewLine>
`2Sorry...but that user has not entered their info yet.
`<NewLine>
@#Abort
`<NewLine>
`4Aborted!
`<NewLine>
@#NoFairy
`<NewLine>
`2 Sorry pal...but you do not have a fairy!
`<NewLine>
@#LNine
`2
`2Sorry...You need to be on Level nine or higher to exchange!
@#NSF
`2
`2Sorry...but you do not have enough money...
`3Go to the bank and get some money...or `4get lost!
@#YouNoHave
`2
`2WHAT!?! You do not have one!!!
@#ENDOFFILE